home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / transimg / transimg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-09  |  9.2 KB  |  267 lines
  1. VERSION 5.00
  2. Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.5#0"; "TRANIMG2.OCX"
  3. Begin VB.Form TransImgTestForm 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "DevPower TransImg Test"
  6.    ClientHeight    =   3210
  7.    ClientLeft      =   30
  8.    ClientTop       =   300
  9.    ClientWidth     =   5940
  10.    Icon            =   "TransImgTestForm.frx":0000
  11.    LinkTopic       =   "TransImgTestForm"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   214
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   396
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CommandButton cmdBounce 
  20.       Caption         =   "Animation Example..."
  21.       Height          =   288
  22.       Left            =   72
  23.       TabIndex        =   13
  24.       Top             =   2712
  25.       Width           =   2016
  26.    End
  27.    Begin VB.CheckBox Check5 
  28.       Caption         =   "Camera Flipped"
  29.       Height          =   252
  30.       Left            =   60
  31.       TabIndex        =   2
  32.       Top             =   1128
  33.       Width           =   1656
  34.    End
  35.    Begin VB.CheckBox Check4 
  36.       Caption         =   "Transparent"
  37.       Height          =   240
  38.       Left            =   3444
  39.       TabIndex        =   5
  40.       Top             =   888
  41.       Value           =   1  'Checked
  42.       Width           =   1620
  43.    End
  44.    Begin VB.Timer Timer 
  45.       Enabled         =   0   'False
  46.       Interval        =   50
  47.       Left            =   4620
  48.       Top             =   2292
  49.    End
  50.    Begin DevPowerTransImg.TransImg TransImg 
  51.       Height          =   900
  52.       Index           =   5
  53.       Left            =   1725
  54.       TabIndex        =   11
  55.       Top             =   1425
  56.       Width           =   4080
  57.       _ExtentX        =   7197
  58.       _ExtentY        =   1588
  59.       MaskColor       =   16711935
  60.       MousePointer    =   1
  61.       Object.ToolTipText     =   "Delete Files"
  62.       Transparent     =   -1  'True
  63.       Picture         =   "TransImgTestForm.frx":030A
  64.    End
  65.    Begin DevPowerTransImg.TransImg TransImg 
  66.       Height          =   192
  67.       Index           =   2
  68.       Left            =   60
  69.       TabIndex        =   8
  70.       TabStop         =   0   'False
  71.       Top             =   1824
  72.       Width           =   192
  73.       _ExtentX        =   423
  74.       _ExtentY        =   423
  75.       MaskColor       =   128
  76.       Object.ToolTipText     =   "CD Audio"
  77.       Picture         =   "TransImgTestForm.frx":C29C
  78.    End
  79.    Begin DevPowerTransImg.TransImg TransImg 
  80.       Height          =   768
  81.       Index           =   4
  82.       Left            =   768
  83.       TabIndex        =   10
  84.       TabStop         =   0   'False
  85.       Top             =   1404
  86.       Width           =   768
  87.       _ExtentX        =   1349
  88.       _ExtentY        =   1349
  89.       AutoSize        =   0   'False
  90.       DrawCheckPattern=   -1  'True
  91.       MaskColor       =   16711935
  92.       Stretch         =   -1  'True
  93.       Object.ToolTipText     =   "Outlook"
  94.       Picture         =   "TransImgTestForm.frx":C3AE
  95.    End
  96.    Begin DevPowerTransImg.TransImg TransImg 
  97.       Height          =   192
  98.       Index           =   3
  99.       Left            =   480
  100.       TabIndex        =   9
  101.       TabStop         =   0   'False
  102.       Top             =   1404
  103.       Width           =   192
  104.       _ExtentX        =   423
  105.       _ExtentY        =   423
  106.       MaskColor       =   128
  107.       Object.ToolTipText     =   "Text"
  108.       Transparent     =   -1  'True
  109.       Picture         =   "TransImgTestForm.frx":D000
  110.    End
  111.    Begin VB.CheckBox Check3 
  112.       Caption         =   "Outlook Checked"
  113.       Height          =   240
  114.       Left            =   1752
  115.       TabIndex        =   3
  116.       Top             =   888
  117.       Value           =   1  'Checked
  118.       Width           =   1620
  119.    End
  120.    Begin VB.CheckBox Check2 
  121.       Caption         =   "Outlook Large"
  122.       Height          =   240
  123.       Left            =   1752
  124.       TabIndex        =   4
  125.       Top             =   1152
  126.       Value           =   1  'Checked
  127.       Width           =   1620
  128.    End
  129.    Begin DevPowerTransImg.TransImg TransImg 
  130.       Height          =   384
  131.       Index           =   1
  132.       Left            =   60
  133.       TabIndex        =   7
  134.       TabStop         =   0   'False
  135.       Top             =   1404
  136.       Width           =   384
  137.       _ExtentX        =   688
  138.       _ExtentY        =   688
  139.       AutoSize        =   0   'False
  140.       Enabled         =   0   'False
  141.       Stretch         =   -1  'True
  142.       Object.ToolTipText     =   "Camera"
  143.       Picture         =   "TransImgTestForm.frx":D112
  144.    End
  145.    Begin VB.CheckBox Check1 
  146.       Caption         =   "Camera Enabled"
  147.       Height          =   252
  148.       Left            =   60
  149.       TabIndex        =   1
  150.       Top             =   888
  151.       Width           =   1656
  152.    End
  153.    Begin VB.CommandButton cmdMoveBehind 
  154.       Caption         =   "Move Behind Pic"
  155.       Height          =   240
  156.       Left            =   3444
  157.       TabIndex        =   6
  158.       Top             =   1152
  159.       Width           =   1572
  160.    End
  161.    Begin VB.Label Label2 
  162.       BackStyle       =   0  'Transparent
  163.       Caption         =   $"TransImgTestForm.frx":D224
  164.       Height          =   900
  165.       Left            =   48
  166.       TabIndex        =   12
  167.       Top             =   0
  168.       Width           =   4932
  169.    End
  170.    Begin VB.Label Label1 
  171.       BackStyle       =   0  'Transparent
  172.       Caption         =   "Events"
  173.       Height          =   348
  174.       Left            =   72
  175.       TabIndex        =   0
  176.       Top             =   2280
  177.       Width           =   3828
  178.    End
  179. Attribute VB_Name = "TransImgTestForm"
  180. Attribute VB_GlobalNameSpace = False
  181. Attribute VB_Creatable = False
  182. Attribute VB_PredeclaredId = True
  183. Attribute VB_Exposed = False
  184. Private iGap As Integer, iOrigTop As Integer
  185. Private bGoingUp As Boolean
  186. Private Sub Check1_Click()
  187.     TransImg(1).Enabled = Check1.Value = vbChecked
  188. End Sub
  189. Private Sub Check2_Click()
  190.     If Check2.Value = vbChecked Then
  191.         TransImg(4).Move TransImg(4).Left, TransImg(4).Top, 32, 32
  192.     Else
  193.         TransImg(4).Move TransImg(4).Left, TransImg(4).Top, 16, 16
  194.     End If
  195. End Sub
  196. Private Sub Check3_Click()
  197.     TransImg(4).DrawCheckPattern = (Check3.Value = vbChecked)
  198. End Sub
  199. Private Sub Check4_Click()
  200.     TransImg(5).Transparent = Check4.Value And vbChecked
  201. End Sub
  202. Private Sub Check5_Click()
  203.     TransImg(1).FlipVert = Not TransImg(1).FlipVert
  204. End Sub
  205. Private Sub cmdBounce_Click()
  206.     frmBounce.Show vbModal
  207. End Sub
  208. Private Sub cmdMoveBehind_Click()
  209.     Timer.Enabled = Not Timer.Enabled
  210. End Sub
  211. Private Sub Form_Load()
  212.     ' Set Gap for transparency demo:
  213.     iGap = cmdMoveBehind.Top
  214.     iOrigTop = cmdMoveBehind.Top
  215.     bGoingUp = False
  216.     ' Ensure the sizes are correct for Small and Large Fonts:
  217.     TransImg(1).Move TransImg(1).Left, TransImg(1).Top, 16, 16
  218.     TransImg(2).Move TransImg(2).Left, TransImg(2).Top, 16, 16
  219.     TransImg(3).Move TransImg(3).Left, TransImg(3).Top, 16, 16
  220.     TransImg(4).Move TransImg(4).Left, TransImg(4).Top, 32, 32
  221.     ' Set Version:
  222.     Label1.Caption = "TransImg Version " + TransImg(1).Version
  223. End Sub
  224. Private Sub TransImg_Click(Index As Integer)
  225.     Label1.Caption = "Picture " + CStr(Index) + " Click"
  226. End Sub
  227. Private Sub TransImg_DblClick(Index As Integer)
  228.     Label1.Caption = "Picture " + CStr(Index) + " Double Click"
  229. End Sub
  230. Private Sub TransImg_KeyDown(Index As Integer, ByVal KeyCode As Integer, ByVal Shift As Integer)
  231.     Label1.Caption = "Picture " + CStr(Index) + " KeyDown (" + CStr(KeyCode) + ")"
  232. End Sub
  233. Private Sub TransImg_KeyPress(Index As Integer, ByVal keyAscii As Integer)
  234.     Label1.Caption = "Picture " + CStr(Index) + " KeyPress (" + CStr(keyAscii) + ")"
  235. End Sub
  236. Private Sub TransImg_KeyUp(Index As Integer, ByVal KeyCode As Integer, ByVal Shift As Integer)
  237.     Label1.Caption = "Picture " + CStr(Index) + " KeyUp (" + CStr(KeyCode) + ")"
  238. End Sub
  239. Private Sub TransImg_MouseDown(Index As Integer, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
  240.     Label1.Caption = "Picture " + CStr(Index) + " Mouse Down"
  241. End Sub
  242. Private Sub TransImg_MouseMove(Index As Integer, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
  243.     Label1.Caption = "Picture " + CStr(Index) + " Mouse Move"
  244. End Sub
  245. Private Sub TransImg_MouseUp(Index As Integer, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
  246.     Label1.Caption = "Picture " + CStr(Index) + " Mouse Up"
  247. End Sub
  248. Private Sub TransImg_Resize(Index As Integer, ByVal Width As Long, ByVal Height As Long)
  249.     Label1.Caption = "Picture " + CStr(Index) + " Resized (" + CStr(Width) + "x" + CStr(Height) + ")"
  250. End Sub
  251. Private Sub TransImg_RightClick(Index As Integer)
  252.     Label1.Caption = "Picture " + CStr(Index) + " RightClicked"
  253. End Sub
  254. Private Sub Timer_Timer()
  255.     If bGoingUp Then
  256.         iGap = iGap - 2
  257.     Else
  258.         iGap = iGap + 2
  259.     End If
  260.     If iGap >= (Me.ScaleHeight - cmdMoveBehind.Height) Then
  261.         bGoingUp = True
  262.     ElseIf iGap <= iOrigTop Then
  263.         bGoingUp = False
  264.     End If
  265.     cmdMoveBehind.Top = iGap
  266. End Sub
  267.